home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / ANSWER.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.7 KB  |  83 lines
  1. 100 REM        AUTO-ANSWER V 1.0
  2. 110 REM"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  3. 120 [143]"(null)  FOX'S ANSWERING MACHINE   (null)
  4. 130 REM"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  5. 140 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  6. 150 REM"[221]FOR USE WITH THE 1660 MODEM [221]
  7. 160 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  8. 170 REM   THE FIRST THING YOU NEED TO           DO IS DISASSEMBLE THE TAPE
  9. 180 REM TAPE DRIVE AND ADD A RECORD             INPUT TO THIS. TO ACCOMPLISH
  10. 190 REM THIS YOU NEED TO UNSCREW THE            FOUR SCREWS ON THE BOTTOM OF
  11. 200 REM CARDBOARD. NEXT ACQUIRE A DUB-          BING CABLE AND SOLDER THE
  12. 210 REM POSITIVE (+) WIRE TO THE SOLDER         TAB SECOND FROM THE RIGHT AT
  13. 220 REM THE BOTTOM OF THE PC BOARD.             NOW WRAP THE GROUND WIRE
  14. 230 REM AROUND THE SCREW THAT HOLDS THE         CARDBOARD ON AND TIGHTEN IT.
  15. 240 REM NOW PUT THE WIRE NEXT TO THE            MAIN WIRE AND REPLACE THE
  16. 250 REM BOTTOM COVER.
  17. 260 REM   NOW YOU HAVE TO 'OUTPUT'              JACK TO THE MODEM. THE MODEM
  18. 270 REM IS NOT SCREWED TOGETHER, BUT            IS PRESSED TOGETHER SO YOU
  19. 280 REM MUST PULL IT APART GENTLY BUT           FIRMLY. ONCE APART YOU MAY
  20. 290 REM WANT TO DRILL A HOLE TO PUT THE         JACK OR YOU CAN JUST USE A WIRE
  21. 300 REM MODEM'S SPEAKER. NOW CONNECT THE        'OUTPUT' OF THE MODEM INTO THE
  22. 310 REM 'INPUT' OF THE TAPE DRIVE.
  23. 320 REM   THE LAST THING YOU NEED TO DO         IS CONNECT THE AUDIO OUT OF THE
  24. 330 REM COMPUTER INTO THE 'AUDIO IN' OF         THE MODEM. IF YOU HAVE A
  25. 340 REM MONITER JUST USE A Y-ADAPTER ON         THE AUDIO CABLE(WHITE). IF
  26. 350 REM YOU DON'T HAVE A MONITOR GET A          5-PIN DIN PLUG FROM THE
  27. 360 REM NEAREST RADIO SHACK AND SOLDER          A DUBBING CABLE TO PINS 2 & 3.
  28. 370 REM THERE IS A DIAGRAM OF THIS IN           THE BACK OF THE USER'S GUIDE.
  29. 380 REM   NOW YOU MUST LOAD S.A.M. THEN         LOAD THIS PROGRAM AND RUN IT.
  30. 390 REM MAKE SURE YOU PRESS RECORD              BEFORE YOU CONTINUE THE PRG.
  31. 400 REM   TO SIMULATE AN INCOMING CALL          PRESS 'C' AND IT WILL THINK
  32. 410 REM THERE IS A PHONE CALL. COMMENTS         WOULD BE GREATLY APPRECIATED!
  33. 420 REM                                                         DAVID FOX
  34. 430 REM                 75116,2025                              12/24/86
  35. 440 :
  36. 450 POKE53280,0:POKE53281,0:POKE650,128
  37. 460 POKE39438,55:REM SPEED OF SAM
  38. 470 POKE39439,70:REM PITCH OF SAM
  39. 480 POKE39440,1:REM  LIGHTS OF SAM
  40. 490 PRINT"[147]PRESS RECORD ON TAPE"
  41. 500 PRINT"HIT ANY KEY TO CONTINUE"
  42. 510 GETG$:IFG$=""THEN510
  43. 520 POKE 192,1:POKE1,PEEK(1)OR32
  44. 530 PRINT"[147]        FOX'S ANSWERING MACHINE"CHR$(142)
  45. 540 PRINT"WAITING FOR A CALL"
  46. 550 PRINT"[152]THERE HAVE BEEN";C"CALLS"
  47. 560 IF(PEEK(56577)AND8)=0THEN590
  48. 570 GETC$:IFC$="C"THEN590:REM"       [221]
  49. 580 [137]560:[143]"                     (null)
  50. 590 REM"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] [221]
  51. 600 [143]"(null)      ANSWER PHONE        (null) (null)
  52. 610 REM"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203] [221]
  53. 620 [153]"SYSCALL ANSWEREDWAIT":[143]"                              (null)
  54. 630 OH=56577:HI=32:LO=255-32:REM"    [221]
  55. 640 [151](OH[170]2),([194](OH[170]2)[176]HI):[143]" (null)
  56. 650 POKEOH,(PEEK(OH)ANDLO):REM"      [221]
  57. 660 C[178]C[170]1:[143]"                       (null)
  58. 670 REM"[192][192][192][192][192][192][192][192] SAY MESSAGE [192][192][192][192][192][192][192][192][179]
  59. 680 SAY"NO WON IS HOME NOU,,PLEASE LEAVE"
  60. 690 SAY"YOUR NAME AND NUMBER AT THE"
  61. 700 SAY"SOUND UV THE TONE"
  62. 710 [143]"TANTANTANTANTANTANTANTANTANTAN BEEP TANTANTANTANTANTANTANTANTANTANTANTANTAN<
  63. 720 FORL=54272TO54296:POKEL,0:NEXT
  64. 730 POKE54296,255:POKE54277,19:REM"  [221]
  65. 740 [151]54278,248:[143]"               (null)
  66. 750 POKE54273,68:POKE54272,149:REM"  [221]
  67. 760 [151]54276,17:[129]T[178]1[164]500:[130]
  68. 770 [151]54276,16:[143]"                (null)
  69. 780 REM"[192][192][192][192][192]START CASSETTE WRITE[192][192][192][192][179]
  70. 790 [151]1,[194](1)[175]223:[143]"WRITE MSG(null)
  71. 800 FORX=1TO15000:NEXT:REM"          [221]
  72. 810 [143]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$ (null)
  73. 820 REM"[221]      HANG UP PHONE       [221] [221]
  74. 830 [143]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) (null)
  75. 840 FOR X=1TO1000:NEXT:REM"          [221]
  76. 850 [129]X[178]1[164]500:[130]X:[143]"           (null)
  77. 860 FORX=1TO900:NEXTX:REM"           [221]
  78. 870 [151]OH,([194](OH)[176]HI):[143]"       (null)
  79. 880 REM"[192][192][192][192][192][192][192][192][192]STOP WRITING[192][192][192][192][192][192][192][192][179]
  80. 890 [151]1,[194](1)[176]32:[143]"           (null)
  81. 900 GOTO530:REM"                     [221]
  82. 910 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  83.